int FillEquiv (Lst, Mark)
int *Lst;
int Mark;
{
   int  Equ;
   Equ = Lst [Mark];
   if (Equ==Lst[Equ])  return (Equ);
                 else  return (Lst[Equ] = FillEquiv (Lst, Equ));
}
